home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / iConcepts.cpt / iConcepts / background_2807.txt < prev    next >
Text File  |  1989-04-19  |  3KB  |  130 lines
  1. -- background: 2807 from stack: in
  2. -- bmap block id: 3238
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   global theObj,theStack,theLayer
  9.   if word 1 to 2 of the target <> "card button" then exit mouseUp
  10.   put the short name of the target into theButton
  11.   if theStack = empty then
  12.     answer "You must click the camera button first."
  13.     exit mouseUp
  14.   end if
  15.   lock screen
  16.   select the target
  17.   doMenu "Copy Button"
  18.   push cd
  19.   put "go" && theLayer && theObj && "in stack" && quote & theStack & quote into travelPlan
  20.   do travelPlan
  21.   if theLayer is "Background" then type "B" with commandKey
  22.   doMenu "Paste Button"
  23.   choose browse tool
  24.   set cursor to hand
  25.   unlock screen
  26.   get the mouseClick
  27.   put "set loc of" && theLayer && "btn theButton to the mouseLoc" into stickyBtn
  28.   repeat until the mouseClick
  29.     do stickyBtn
  30.   end repeat
  31.   pop cd
  32. end mouseUp
  33.  
  34.  
  35. -- part 2 (button)
  36. -- low flags: 00
  37. -- high flags: 2002
  38. -- rect: left=6 top=212 right=237 bottom=31
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 30666 / 30666
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: home
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   visual iris close
  50.   go home
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 3 (button)
  56. -- low flags: 00
  57. -- high flags: 2002
  58. -- rect: left=33 top=212 right=237 bottom=58
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 277 / 277
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: pop
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual iris close
  70.   pop card
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 4 (button)
  76. -- low flags: 00
  77. -- high flags: 2002
  78. -- rect: left=60 top=212 right=237 bottom=85
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 18503 / 18503
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: next
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual dissolve
  90.   go next
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 2002
  98. -- rect: left=165 top=212 right=237 bottom=190
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 11828 / 11828
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: camera
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   global theStack,theLayer,theObj
  110.   ask "Destination stack name‚Ķ" with theStack
  111.   if it is empty then exit mouseUp
  112.   put it into theStack
  113.   answer "Destination layer in" && theStack & "‚Ķ" with "card" or "background" or "Cancel"
  114.   if it is "Cancel" then exit mouseUp
  115.   put it into theLayer
  116.   ask "Destination" && theLayer && "number in" && theStack & "‚Ķ" with "1"
  117.   if it is empty then exit mouseUp
  118.   put it into theObj
  119.   lock screen
  120.   set cursor to watch
  121.   push cd
  122.   put "go" && theLayer && theObj && "in stack" && quote & theStack & quote into travelPlan
  123.   do travelPlan
  124.   if the result <> empty then answer "No such" && theLayer & "."
  125.   set cursor to watch
  126.   pop cd
  127.   unlock screen
  128. end mouseUp
  129.  
  130.